home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
wildcat
/
uslister.zip
/
USLISTER.WCX
(
.txt
)
< prev
Wrap
Wildcat! WCX
|
1996-05-31
|
3KB
|
170 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 2959 bytes 03/09/122 08:19:16am
'! Code Segment Size :2089 bytes
'! Data Segment Size :5666 bytes
'! String Segment Size:870 bytes
'! Compiled with WCC version 4.12
Dim l4463 As Long
Dim l4467 As Long
Dim i4471 As Integer
Dim s4473 As String*30
Dim l4503 As Long
Dim s4507 As String*7
Dim l4514 As Long
Dim s4518 As String*25
Dim l4543 As Long
Dim l4547 As Long
Dim i4551 As Integer
Dim ur4553 As UserRecord
Dim s5444 As String
Dim i5448 As Integer
Dim s5450(0 To 20) As String*10
Dim i5660 As Integer
Dim i5662 As Integer
Dim i5664 As Integer
Dim l65500_ As Long
Dim i65504_ As Integer
Dim l65506_ As Long
Dim i65510_ As Integer
Dim l65512_ As Long
Dim i65516_ As Integer
Dim l65518_ As Long
Dim i65522_ As Integer
Dim l65524_ As Long
Dim i65528_ As Integer
Dim l65530_ As Long
Dim i65534_ As Integer
l4467 = 9525
If Exists(ProgPath + "uslister.key") Then
Open ProgPath + "uslister.key" For Input As 1
Else
98 l4463 = 0
GoTo 123
End If
110 Input #1, l4463
Close 1
123 s4473 = UCase(MakeWild.BBSName)
s4473 = Trim(s4473)
l4503 = 0
191 For i4471 = 1 To Len(s4473) Step 1
l4503 = l4503 + Asc(Mid(s4473, i4471, 1))
Next
295 s4507 = UCase(MakeWild.RegString)
s4507 = Trim(s4507)
l4514 = 0
364 For i4471 = 1 To Len(s4507) Step 1
l4514 = l4514 + Asc(Mid(s4507, i4471, 1))
Next
468 s4518 = UCase(MakeWild.SysopName)
s4518 = Trim(s4518)
l4543 = 0
536 For i4471 = 1 To Len(s4518) Step 1
l4543 = l4543 + Asc(Mid(s4518, i4471, 1))
Next
640 l4547 = l4503 + l4514 + l4543
l4547 = l4547 * 7
l4547 = l4547 * l4467
l4547 = l4547 + l4467
If l4547 = l4463 Then
i4551 = - 1
Else
745 i4551 = 0
End If
751 i5448 = 0
If Exists(ProgPath + "uslister.cfg") Then
Open ProgPath + "uslister.cfg" For Input As 1
801 Do While Not EOF(1)
i5448 = i5448 + 1
Input #1, s5450(i5448)
Loop
End If
Do
867 Cls
Locate 1, 1
Print "@0E@Which Security Profile would you like to view?"
Print
912 For i5660 = 1 To i5448 Step 1
Print "@02@[@0F@"; i5660; "@02@] @0B@"; s5450(i5660)
Next
1040 Print
Print "Select from 1 to "; i5448; " (0 to quit):";
i5662 = InputNumber(" ", 0, i5448)
If i5662 = 0 Then
GoTo 1544
End If
1104 Cls
Locate 1, 28
Print "@0F@USLister - Copyright 1996"
Locate 2, 28
Print "@02@Searching for: @0A@"; UCase(s5450(i5662))
Print "@0E@ID#@01@──@0E@User Name@01@──────────────────@0E@Alias Name@01@─────────────────@0E@Calls@01@──@0E@Phone Number"
s5444 = ""
i5660 = 0
GetUser(ur4553, s5444)
Do
1209 If UCase(s5450(i5662)) = UCase(ur4553.SecLevel) Then
Print "@0F@"; ur4553.UserId; Tab(6); "@0B@"; ur4553.Name; Tab(33); "@0C@"; ur4553.Alias; Tab(60); "@0D@"; ur4553.TimesOn; Tab(67); "@0A@"; ur4553.PhoneNumber
i5660 = i5660 + 1
End If
1406 Loop Until Not GetNextUser(ur4553, 1213417543)
Print "@01@└────────────────────────────────────────────────────────────────────────────┘@0F@"
Print Tab(9); "@03@Written by: @0B@Dean Brooks at Hidden Paradise BBS (716)-345-9800"
Print Tab(17); "@02@Found @0A@"; i5660; "@02@ users at Security Level: @0A@"; UCase(s5450(i5662))
Print
If (InputYesNo("See another listing (Y/N): ", 1213417543)) = 0 Then GoTo 1544
Loop
1544 Cls
Locate 6, 25
Print "@0F@Thank you for using USLister!"
Locate 8, 28
Print "@0A@Written by: Dean Brooks"
Locate 10, 28
Print "@09@Hidden Paradise Software"
Locate 12, 18
Print "@0E@Support: Hidden Paradise BBS @ 716-345-9800"
If i4551 = 0 Then
Print "@NOPAUSE@"
Locate 18, 17
Print "@0F@This delay will be removed when you register!"
Color 3, 0
Locate 15, 29
Print "["
Color 3, 0
Locate 15, 51
Print "]"
Color 11, 0
Locate 15, 40
Print Chr(254)
1737 For i5664 = 1 To 10 Step 1
Color 11, 0
Locate 15, 40 - i5664
Print Chr(254)
Locate 15, 40 + i5664
Print Chr(254)
Delay 0.5
Next
1870
1893 For i5664 = 10 To 1 Step - 1
Color 11, 0
Locate 15, 40 - i5664
Print " "
Locate 15, 40 + i5664
Print " "
Delay 0.25
Next
2026 Locate 15, 40
Print " "
Reset
End
Else
2052 Locate 15, 26
Print "@1E@ Thank You for REGISTERING! @0F@"
Delay 2
Reset
End If
2079 End
End